home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8505.d64 / !screen data's (.txt) next >
Commodore BASIC  |  1995-03-30  |  3KB  |  79 lines
  1. 100 REM********************************
  2. 105 REM**                            **
  3. 110 REM** PRG: !SCREEN  2.0 'DATAS'  **
  4. 115 REM**                            **
  5. 120 REM** (C)  27.06.85              **
  6. 125 REM**                            **
  7. 130 REM**      STEFAN WAGNER         **
  8. 135 REM**      HOEHENSTR.102         **
  9. 140 REM**  5090LEVERKUSEN  3         **
  10. 145 REM**                            **
  11. 150 REM********************************
  12. 155 SA= 49152
  13. 160 :
  14. 165 HB=INT((SA+11)/256):REM VEKTOR HIGH
  15. 170 LB=(SA+11)-HB*256:REM VEKTOR LOW
  16. 175 :
  17. 180 REM*** VERBIEGEN DES VEKTORS ******
  18. 185 REM*** + NEUE CHRGET ROUTINE ******
  19. 190 :
  20. 195 POKE SA  ,162:POKE SA+1,LB
  21. 200 POKE SA+2,160:POKE SA+3,HB
  22. 205 FORI=SA+4TOSA+35:READX:POKEI,X:NEXT
  23. 210 DATA  142,  8,  3,140,  9,  3, 96
  24. 215 REM---
  25. 220 DATA 32,115,  0,201, 33,240,  6
  26. 225 DATA 32,121,  0, 76,231,167, 32,115,  0, 32, 36,192, 32,121,  0, 76,231,167
  27. 230 :
  28. 235 REM*** EIGENTLICHES PROGRAMM ******
  29. 240 :
  30. 245 S=0:FOR I=SA+36 TO SA+217
  31. 250 READX:POKEI,X:S=S+X
  32. 255 NEXT
  33. 260 IF S<>23004 THENPRINT"** DATA FEHLER **":STOP
  34. 265 DATA216, 32,250,174, 32,158,183,134, 89, 32,241,183,134, 90, 32,241,183,134
  35. 270 DATA 91, 32,241,183,134, 92, 32,247,174, 32,241,183,134,253, 32,241,183,134
  36. 275 DATA254,165, 90, 56,229, 89, 24,105,  1,133,252,165, 92, 24,105,  1,133, 92
  37. 280 DATA 56,229, 91,133,251,169,128,133, 93,173,136,  2,133, 88,162,  0,134, 87
  38. 285 DATA166, 89,240, 16,165, 87, 24,105, 40,133, 87,165, 88,105,  0,133, 88,202
  39. 290 DATA208,240,173, 17,208, 42,144,250,169, 11,141, 17,208,184,166,253,164, 91
  40. 295 DATA177, 87, 80, 26,145, 87,200,196, 92,208,245,165, 87, 24,105, 40,133, 87
  41. 300 DATA165, 88,105,  0,133, 88,198,252,208,226, 80, 38,177, 87,224,  0,240, 14
  42. 305 DATA224,  1,240, 20,224,  2,240, 20,224,  3,240,  8,208, 18, 36, 93,240,  6
  43. 310 DATA208,  8,165,254, 80,200,  9,128, 80,196, 41,127, 80,192,169, 27,141, 17
  44. 315 DATA208, 96
  45. 320 :
  46. 325 REM********************************
  47. 330 REM**                            **
  48. 335 REM**  INITIALISIERN: SYS SA     **
  49. 340 REM**                            **
  50. 345 REM**                            **
  51. 350 REM**  SYNTAX:                   **
  52. 355 REM**                            **
  53. 360 REM**  !(VZ,BZ,VS,BS),F,C        **
  54. 365 REM**                            **
  55. 370 REM**  VZ = VON ZEILE            **
  56. 375 REM**  BZ = BIS ZEILE            **
  57. 380 REM**  VS = VON SPALTE           **
  58. 385 REM**  BS = BIS SPALTE           **
  59. 390 REM**                            **
  60. 395 REM**  F  = FUNKTION (0-3)       **
  61. 400 REM**                            **
  62. 405 REM**    0= INVERS               **
  63. 410 REM**    1= REVERS               **
  64. 415 REM**    2= NORMAL               **
  65. 420 REM**    3= FUELLEN              **
  66. 425 REM**                            **
  67. 430 REM**  C  = FUELLCODE            **
  68. 435 REM**       (=BILDSCHIRMCODE)    **
  69. 440 REM**                            **
  70. 445 REM** - - - - - - - - -  - - - - **
  71. 450 REM**                            **
  72. 455 REM** STATT ! KANN AUCH          **
  73. 460 REM**                            **
  74. 465 REM** SYS SA+36 VERWENDET WERDEN **
  75. 470 REM**                            **
  76. 475 REM** (DANN KANN DAS INITIALI-   **
  77. 480 REM**  SIEREN ENTFALLEN)         **
  78. 485 REM********************************
  79.